home *** CD-ROM | disk | FTP | other *** search
/ MacFormat 1997 May / macformat-050.iso / Shareware Plus / Comms / Download Timer v3.0 / download_timer.dcr / 00025.ls < prev    next >
Encoding:
Text File  |  1997-02-07  |  916 b   |  34 lines
  1. on startMovie
  2.   global gg, gh
  3.   set the visible of sprite 26 to 0
  4.   set the visible of sprite 10 to 0
  5.   set the visible of sprite 11 to 0
  6.   set the visible of sprite 12 to 1
  7.   put "1440" into field "speed"
  8.   set the visible of sprite 13 to 0
  9.   set the visible of sprite 14 to 0
  10.   set the visible of sprite 2 to 1
  11.   put "1" into field "bts"
  12.   set the visible of sprite 3 to 0
  13.   set the visible of sprite 4 to 0
  14.   set the visible of sprite 20 to 0
  15.   put field "filesizereset" into field "a"
  16.   put field "timereset" into field "time"
  17.   updateStage()
  18. end
  19.  
  20. on hcalculate
  21.   global gg, gh
  22.   puppetSprite(26, 1)
  23.   set the visible of sprite 26 to 0
  24.   puppetSprite(26, 0)
  25.   updateStage()
  26.   set gg to field "size"
  27.   set gg to gg * field "bts"
  28.   set gg to gg / field "speed"
  29.   set gg to gg / 60
  30.   put gg into field "ghh"
  31.   set gh to the number of chars in field "ghh" - 2
  32.   put char 1 to gh of field "ghh" into field "time"
  33. end
  34.